home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh25.d64
/
switch u-o.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
303b
|
11 lines
0 REM
136 OPEN1,8,15,"UI"
232 REM *** SPURSCHALTPROGRAMME ***
236 PRINT#1,"M-W"CHR$(6)CHR$(0)CHR$(2)CHR$(1)CHR$(0)
238 PRINT#1,"M-W"CHR$(0)CHR$(0)CHR$(1)CHR$(128)
240 PRINT#1,"M-R"CHR$(0)CHR$(0)CHR$(1):GET#1,A$:IFASC(A$+CHR$(0))>127THEN240
244 PRINT#1,"M-W"CHR$(6)CHR$(0)CHR$(2)CHR$(36)CHR$(0)
246 PRINT#1,"M-W"CHR$(0)CHR$(0)CHR$(1)CHR$(176)
248 PRINT#1,"M-R"CHR$(0)CHR$(0)CHR$(1):GET#1,A$:IFASC(A$+CHR$(0))>127THEN248
250 CLOSE1:END